Workplace Effectiveness:…ecision-Making Strategies/Workplace Effectiveness: Decision-Making Strategies.iso/pc/Files/Reach4.dxr/00003_Navigation handlers.ls

Text File | 1998-12-16 | 968 b | 51 lines

global gMasterData, gSection

on goIntro
  go(label("intro"))
  set gSection to #intro
  goNarrator(gMasterData, "32")
end

on go1
  go(label("1"))
  set gSection to 1
  goNarrator(gMasterData, "33")
end

on go2
  go(label("2"))
  set gSection to 2
  goNarrator(gMasterData, "34")
end

on go3
  go(label("3"))
  set gSection to 3
  goNarrator(gMasterData, "36")
  if not activationOn(gMasterData) then
    activate(gMasterData)
  end if
end

on go4
  go(label("4"))
  set gSection to 4
  fillinField()
  goNarrator(gMasterData, "38")
end

on clickDone
  go("go on")
  goNarrator(gMasterData, "37")
  set gSection to #clickDone
end

on fillinField
  set vText to EMPTY
  put the text of member "brain Field 1" of castLib "Shared" & RETURN & RETURN after vText
  repeat with X = 2 to 6
    put the text of member ("brain Field" && string(X)) of castLib "Shared" & RETURN after vText
  end repeat
  set the text of member "brain Field 7" of castLib "Shared" to vText
end